home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / dskut / xpandisk.zip / XPANBOSS.BAS < prev    next >
BASIC Source File  |  1988-10-31  |  5KB  |  75 lines
  1. 100 REM - BASIC PROGRAM TO CREATE XPANBOSS.COM
  2. 110 CLS:PRINT "Creating XPANBOSS.COM": OPEN "XPANBOSS.COM" AS #1 LEN = 1
  3. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  4. 130 FOR I = 1 TO    56
  5. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "    56 - I ;
  6. 150  FOR J = 1 TO  16: READ BYTE$: BYTE = VAL("&H" + BYTE$)
  7. 160   CHECKSUM# = CHECKSUM# + BYTE: LINESUM# = LINESUM# + BYTE
  8. 170   IF (BYTE < 256) THEN LSET A$=CHR$(BYTE): PUT #1
  9. 180  NEXT J
  10. 190  READ LINETOT$: LINECHECK# = VAL("&H"+LINETOT$)
  11. 200  IF LINECHECK# = LINESUM# THEN GOTO 220
  12. 210  LOCATE 4,2: PRINT "Error in line #"  ;  260 +  10 * I: GOTO 260
  13. 220 NEXT I
  14. 230 CLOSE: READ FILETOT$ : FILECHECK# = VAL(FILETOT$)
  15. 240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260
  16. 250 PRINT: PRINT "XPANBOSS.COM created successfully": SYSTEM
  17. 260 PRINT: PRINT "XPANBOSS.COM is not valid!": END
  18. 270 DATA E9, CB,  2,  D,  A, 58, 50, 41, 4E, 42, 4F, 53, 53, 20, 31, 2E,   4BA
  19. 280 DATA 30, 20, 28, 43, 29, 20, 31, 39, 38, 38, 20, 5A, 69, 66, 66, 20,   3AD
  20. 290 DATA 43, 6F, 6D, 6D, 75, 6E, 69, 63, 61, 74, 69, 6F, 6E, 73, 20, 43,   62C
  21. 300 DATA 6F, 2E,  D,  A, 50, 43, 20, 4D, 61, 67, 61, 7A, 69, 6E, 65, 20,   4B3
  22. 310 DATA FE, 20, 4D, 69, 63, 68, 61, 65, 6C, 20, 4A, 2E, 20, 4D, 65, 66,   5A1
  23. 320 DATA 66, 6F, 72, 64,  D,  A,  A, 53, 79, 6E, 74, 61, 78, 3A, 20, 58,   505
  24. 330 DATA 50, 41, 4E, 42, 4F, 53, 53, 20, 5B, 64, 3A, 5D, 5B, 2F, 44, 20,   47A
  25. 340 DATA 64, 69, 73, 6B, 20, 73, 69, 7A, 65, 5D, 5B, 2F, 53, 20, 73, 65,   5B8
  26. 350 DATA 63, 74, 6F, 72, 20, 73, 69, 7A, 65, 5D, 5B, 2F, 45, 20, 65, 6E,   5B2
  27. 360 DATA 74, 72, 69, 65, 73, 5D, 5B, 2F, 57, 5D, 5B, 2F, 52, 5D, 5B, 2F,   585
  28. 370 DATA 4D, 5D, 5B, 2F, 41, 5D,  D,  A,  A, 64, 69, 73, 6B, 20, 73, 69,   49A
  29. 380 DATA 7A, 65, 20, 20, 20, 3D, 20, 28, 31, 36, 20, 2D, 20, 33, 32, 37,   334
  30. 390 DATA 36, 38, 29, 4B, 20, 62, 79, 74, 65, 73, 3B, 20, 64, 65, 66, 61,   514
  31. 400 DATA 75, 6C, 74, 20, 3D, 20, 36, 34,  D,  A, 73, 65, 63, 74, 6F, 72,   4E3
  32. 410 DATA 20, 73, 69, 7A, 65, 20, 3D, 20, 28, 31, 32, 38, 2C, 32, 35, 36,   3E4
  33. 420 DATA 2C, 35, 31, 32, 29, 20, 62, 79, 74, 65, 73, 3B, 20, 64, 65, 66,   4BE
  34. 430 DATA 61, 75, 6C, 74, 20, 3D, 20, 32, 35, 36,  D,  A, 65, 6E, 74, 72,   4A0
  35. 440 DATA 69, 65, 73, 20, 20, 20, 20, 20, 3D, 20, 28, 34, 20, 2D, 20, 35,   33C
  36. 450 DATA 31, 32, 29, 69, 6E, 20, 72, 6F, 6F, 74, 20, 64, 69, 72, 65, 63,   56E
  37. 460 DATA 74, 6F, 72, 79, 3B, 20, 64, 65, 66, 61, 75, 6C, 74, 20, 3D, 20,   58B
  38. 470 DATA 36, 34,  D,  A, 2F, 57, 20, 3D, 20, 43, 68, 61, 6E, 67, 65, 20,   3EA
  39. 480 DATA 73, 69, 7A, 65, 20, 57, 49, 54, 48, 4F, 55, 54, 20, 61, 73, 6B,   56E
  40. 490 DATA 69, 6E, 67, 2E, 20, 57, 41, 52, 4E, 49, 4E, 47, 3A, 20, 41, 6C,   4A9
  41. 500 DATA 6C, 20, 64, 61, 74, 61, 20, 77, 69, 6C, 6C, 20, 62, 65, 20, 6C,   571
  42. 510 DATA 6F, 73, 74, 2E,  D,  A, 2F, 52, 20, 3D, 20, 52, 65, 61, 64, 2D,   442
  43. 520 DATA 6F, 6E, 6C, 79, 20, 64, 72, 69, 76, 65,  D,  A, 2F, 4D, 20, 3D,   4EC
  44. 530 DATA 20, 4D, 69, 6E, 69, 6D, 75, 6D, 20, 64, 69, 73, 6B, 20, 73, 69,   5C3
  45. 540 DATA 7A, 65, 20, 28, 31, 36, 4B, 29,  D,  A, 2F, 41, 20, 3D, 20, 41,   347
  46. 550 DATA 6C, 6C, 20, 6F, 66, 20, 61, 76, 61, 69, 6C, 61, 62, 6C, 65, 20,   5AE
  47. 560 DATA 65, 78, 70, 61, 6E, 64, 65, 64, 20, 6D, 65, 6D, 6F, 72, 79,  D,   60F
  48. 570 DATA  A,  A, 55, 73, 65, 20, 58, 50, 41, 4E, 42, 4F, 53, 53, 20, 74,   463
  49. 580 DATA 6F, 20, 63, 6F, 6E, 74, 72, 6F, 6C, 20, 74, 68, 65, 20, 58, 50,   5B9
  50. 590 DATA 41, 4E, 44, 49, 53, 4B, 20, 76, 69, 72, 74, 75, 61, 6C, 20, 64,   565
  51. 600 DATA 69, 73, 6B,  D,  A, 24, 50, 43, 20, 4D, 61, 67, 61, 7A, 69, 6E,   4FC
  52. 610 DATA 65, 20, 50, 72, 6F, 64, 75, 63, 74, 69, 76, 69, 74, 79,  0,  0,   59B
  53. 620 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  54. 630 DATA  0,  0,  0,  0,  0,  0,  0, 44, 72, 69, 76, 65, 20, 24, 3A, 20,   298
  55. 640 DATA 64, 6F, 65, 73, 20, 6E, 6F, 74, 20, 62, 65, 6C, 6F, 6E, 67, 20,   5D3
  56. 650 DATA 74, 6F, 20, 58, 50, 41, 4E, 42, 4F, 53, 53,  7,  D,  A, 24,  D,   3C0
  57. 660 DATA  A, 57, 41, 52, 4E, 49, 4E, 47, 3A, 20, 41, 6C, 6C, 20, 63, 75,   48B
  58. 670 DATA 72, 72, 65, 6E, 74, 20, 64, 61, 74, 61, 20, 6F, 66, 20, 24, 3A,   558
  59. 680 DATA 20, 77, 69, 6C, 6C, 20, 62, 65, 20, 6C, 6F, 73, 74, 2E,  D,  A,   4E6
  60. 690 DATA 44, 6F, 20, 79, 6F, 75, 20, 77, 69, 73, 68, 20, 74, 6F, 20, 63,   591
  61. 700 DATA 6F, 6E, 74, 69, 6E, 75, 65, 3F, 20, 20, 59, 2F, 4E, 20, 24, 55,   4F0
  62. 710 DATA 4E, 53, 55, 43, 43, 45, 53, 53, 46, 55, 4C,  D,  A, 24, FC, BA,   53F
  63. 720 DATA  3,  1, E8, 9C,  0, 8A, 1E, 5C,  0, 8A, C3, FE, C8, 79,  4, B4,   6D0
  64. 730 DATA 19, CD, 21,  4, 41, A2, 5C,  0, C6,  6, 5D,  0, 24, BA, 2E,  3,   482
  65. 740 DATA 8B, F2, B9, 18,  0, B8,  4, 44, CD, 21, BF, 16,  3, F3, A6, 74,   721
  66. 750 DATA 11, BA, CB,  3, E8, 6A,  0, E8, 5E,  0, BA, 4E,  3, E8, 61,  0,   685
  67. 760 DATA EB, 25, 80, 3C,  0, 74,  B, E8, 2B,  0, 75, 1D, BA, CB,  3, E8,   660
  68. 770 DATA 4F,  0, BA, 16,  3, B9, 18,  0, B8,  5, 44, CD, 21, B0,  0, 73,   505
  69. 780 DATA  8, BA, BF,  3, E8, 3A,  0, B0,  1, 50, BA, CB,  3, E8, 31,  0,   648
  70. 790 DATA 58, B4, 4C, CD, 21, BA, 6F,  3, E8, 26,  0, E8, 1A,  0, BA, 8F,   6CB
  71. 800 DATA  3, E8, 1D,  0, 32, E4, CD, 16, 80, FC, 15, 75,  A, B4,  E, CD,   6A0
  72. 810 DATA 10, 32, E4, CD, 16, 3C,  D, C3, BA, 47,  3, E8,  3,  0, BA, 5C,   61A
  73. 820 DATA  0, B4,  9, CD, 21, C3,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,   26E
  74. 830 DATA 71516
  75.